home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / progs / editor / amis / scripts / amigaguide.rexx < prev    next >
OS/2 REXX Batch file  |  1996-12-30  |  497b  |  22 lines
  1. /* Switch to AmigaGuide Macro */
  2.  
  3. options results
  4. if address()="REXX" then
  5.    address 'AMISPORT.1'
  6.  
  7. 'Cursup TOP'
  8. 'GetLine'
  9. if upper(left(result,9))~="@DATABASE" then
  10. do
  11.   'Request BODY="This does not look like an|AmigaGuide database, do you want|to convert it ?" BUTTON="¶_Yes|_No|_Cancel"'
  12.   if result=1 then
  13.   do
  14.     'Insert TEXT="@Database¶¶@node MAIN¶¶"'
  15.     'Cursdown BOTTOM'
  16.     'Insert TEXT="¶¶@endnode¶¶"'
  17.     'Cursup TOP'
  18.   end
  19.   else if result=3 then exit
  20. end
  21. 'Viewer NAME="AmigaGuide"'
  22.